﻿Public Class frmQuanLyThoiKhoaBieu

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub ThoatToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ThoatToolStripMenuItem.Click
        Me.Close()
    End Sub

    Private Sub tsmiGiaoVien_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsmiGiaoVien.Click
        Dim frmGV As New frmGiaoVien()
        frmGV.ShowDialog()
    End Sub

    Private Sub smiThoiKhoaTool_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles smiThoiKhoaTool.Click
        Dim frmTKB As New frmThoiKhoaBieu()
        frmTKB.ShowDialog()
    End Sub

    Private Sub tsmiLopHoc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsmiLopHoc.Click
        Dim frmLopHoc As New frmLopHoc()
        frmLopHoc.ShowDialog()
    End Sub

    Private Sub tsmiMonHoc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsmiMonHoc.Click
        Dim frmMonHoc As New frmMonHoc()
        frmMonHoc.ShowDialog()
    End Sub

    Private Sub tsmiChiTietThoiKhoaBieu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsmiChiTietThoiKhoaBieu.Click
        Dim frmCTTKB As New frmChiTietThoiKhoaBieu()
        frmCTTKB.ShowDialog()
    End Sub

    Private Sub ThamSoToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ThamSoToolStripMenuItem1.Click
        Dim frmtm As New frmThamSo()
        frmtm.ShowDialog()
    End Sub

    Private Sub ThoiKhoaBieuToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ThoiKhoaBieuToolStripMenuItem1.Click
        Dim frmReportTKB As New frmReportThoiKhoaBieu()
        frmReportTKB.ShowDialog()
    End Sub

    Private Sub TraCuuThoiKhoaBieutsmi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TraCuuThoiKhoaBieutsmi.Click
        Dim frmTraCuuTKB As New frmTraCuuThoiKhoaBieu()
        frmTraCuuTKB.ShowDialog()
    End Sub
End Class
